(define (square x)
  (* x x))

(define (sum-list lst)
  (if (null? lst)
    0
    (+ (car lst) (sum-list (cdr lst)))))

(define (std-dev lst)
  (sqrt (/
          (- (sum-list (every square lst)) (sum-list lst)
          (length lst)))))
